10 POKE56,37:POKE55,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53281,0:POKE53280,0:PRINT"[147][129]          [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
40 PRINT"   [207][208] [197][196] [195][193][210][212][207][207][206] [214][201][197][215][197][210]/[208][210][201][206][212][197][210] 1997"
42 IFGTHEN80
44 G=1
50 SYS57812"TSV.O",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
52 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
60 SYS57812"THE WAR.SHP",DV,0:POKE780,0:POKE781,0:POKE782,37:SYS65493
62 SYS57812"KEY.SHP",DV,0:POKE780,0:POKE781,0:POKE782,61:SYS65493
64 SYS57812"WINDOWS.SHP",DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
70 PA(1)=37:PA(2)=61:PA(3)=128
72 MD(1)=PEEK(37*256):MD(2)=PEEK(61*256):MD(3)=PEEK(128*256)
80 PRINT"       [152][195]ARTOONS BY [155][199]LEN [201]SHAM
82 [153]"    1.CONT (null)HE (null)AR (null)AGES (null)N
84 PRINT"    2.[154] [212]HE [203]EY TO [200]APPINESS
86 [153]"    3.CONT (null)INDOWS TO...WHAT THE...?
88 PRINT"    4.[154] [210]ETURN TO [204][207][193][196][211][212][193][210]
90 [151]198,0
92 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]92
94 P[178][197](A$)
96 [139]P[178]4[167]40000
98 [141]500
100 [151]214,6:[153]
110 [153]" 1.CONT MID$UST SHOW THE PICTURE
120 PRINT" 2.[154] [211]HOW THE PICTURE AND PRINT IT ON
125 [153]"    A 7-PIN (1525-EMULATING) PRINTER
130 PRINT" 3.[154] [211]HOW THE PICTURE AND PRINT IT ON
135 [153]"    AN 8-PIN (VALPSON-EMULATING) PRINTER
140 PRINT" 4.[154] [210]ETURN TO [195]ARTOON [205]ENU
150 [153]" 5.CONT (null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)
170 PRINT"[155]  [205]AKE SURE YOUR PRINTER IS ON-LINE.
220 [151]198,0
230 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167]230
232 A1[178][197](A$):[139]A1[178]5[167]40000
235 [139]A1[178]1[167]400
240 [139]A1[178]2[167]TB[178]80:[137]350
245 [139]A1[178]4[167][141]500:[137]30
250 [141]500
260 [151]214,6:[153]
270 [153]"       STR$VAL(null)(null)RIGHT$(null)(null)      (null)RIGHT$STR$(null)LEFT$
275 PRINT"    1.[154] [211]INGLE       WIDE
280 [153]"    2.CONT LENRT          NORMAL
285 PRINT"    3.[154] [196]OUBLE       NARROW
290 [153]"    4.CONT STR$OUBLE       WIDE
295 PRINT"    5.[154] [209]UAD         NARROW
296 [153]"    6.CONT (null)UAD         NORMAL
300 POKE198,0
305 GETA$:IFA$<"1"ORA$>"6"THEN305
310 A2=VAL(A$):IFA2=1THEN DS=0:BT=1:TB=80
312 IFA2=2THEN DS=4:BT=1:TB=120
314 IFA2=3THEN DS=1:BT=1:TB=160
316 IFA2=4THEN DS=1:BT=2:TB=80
318 IFA2=5THEN DS=3:BT=2:TB=160
320 IFA2=6THEN DS=3:BT=3:TB=120
350 GOSUB500
355 POKE214,6:PRINT
360 PRINT"       [212][193][194][160][208][207][211][201][212][201][207][206]
362 [153]"    1.CONT (null)EFT
364 PRINT"    2.[154]     [195]ENTER
366 [153]"    3.CONT         (null)IGHT
368 IFA2<>3ANDA2<>5THEN374
370 PRINT"    4.[154]   [195]ENTER-LEFT
372 [153]"    5.CONT       LENENTER-RIGHT
374 POKE198,0
376 GETA$:IFA$<"1"ORA$>"5"THEN376
378 IFA$="1"THENTB=0:GOTO400
380 IFA$="2"THEN400
382 IFA$="3"THENTB=TB*2:GOTO400
384 IFA2<>3ANDA2<>5THEN374
386 IFA$="4"THENTB=53:GOTO400
388 TB=266
400 POKE251,PA(P):POKE252,96:POKE253,92:SYS51456
405 SYS51459
410 IFA1=2THENSYS49152,TB,MD(P):GOTO430
415 IFA1=3THENSYS49155,TB,DS,BT,BT*320,MD(P):GOTO430
420 POKE198,0
425 GETA$:IFA$=""THEN425
430 POKE186,DV:SYS51459
435 GOTO30
500 FORX=6TO24:POKE781,X:SYS59903:NEXT:RETURN
10000 D=PEEK(186):N$="B.OP ED 161":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40065 PRINT"[147]	[154]HAPPY COMPUTING!":POKE186,8:END
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END